perm filename FORSM[1,LMM] blob sn#031686 filedate 1973-03-28 generic text, type T, neo UTF8
  (DM FOR (FOR-EXPRESSION)
   (RPLACNODE FOR-EXPRESSION (*FOR (CDR FOR-EXPRESSION))))))))))
  (DM IF (IF-EXPRESSION)
   (RPLACNODE IF-EXPRESSION
      (CONS (QUOTE COND)
            (*IF (CDR IF-EXPRESSION)))))))))
  (DM REPLACE (REPLACEXP)
      (PROG (REPLACE1 REPLACE2)
            (SETQ REPLACE1 (FULLEXPANSION (CADR REPLACEXP)))
            (SETQ REPLACE2 (CADDR REPLACEXP))
            (RETURN(RPLACNODE REPLACEXP (LIST (COND ((EQ (CAR REPLACE1)
                                     (QUOTE CAR))
                                 (QUOTE RPLACA))
                                ((EQ (CAR REPLACE1)
                                     (QUOTE CDR))
                                 (QUOTE RPLACD))
                                (ERROR @"REPLACE CAN'T" (LIST REPLACE1 
                                                           REPLACE2)))
                          (CADR REPLACE1)
                          REPLACE2))))))))))))))